Amiga Magazin: Amiga-CD 1996 March/Amiga-CD 1996 #3.iso/pd-software/mui_3.1/developer/oberon/txt/muilist.mod

Text File | 1996-01-19 | 5KB | 149 lines

MODULE MUIList;

(* $StackChk- $NilChk- $RangeChk- $CaseChk- $OvflChk- $ReturnChk- $ClearVars- *)

(* This module is generated by "GenMuiO" © 1995 by Albert Weinert *)

IMPORT
  clf := Classface,
  e := Exec,
  m := Mui,
  RootClass,
  SuperClass := MUIArea,
  I := Intuition;

CONST
  name *= m.cList;

TYPE
  Class     *= UNTRACED POINTER TO ClassDesc;
  ClassDesc *= RECORD( SuperClass.ClassDesc ) END;

VAR
  class * : I.IClassPtr;

   PROCEDURE ( VAR c : ClassDesc ) mClear*( VAR msg : m.pListClear ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListClear;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mClear;

   PROCEDURE ( VAR c : ClassDesc ) mCreateImage*( VAR msg : m.pListCreateImage ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListCreateImage;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mCreateImage;

   PROCEDURE ( VAR c : ClassDesc ) mDeleteImage*( VAR msg : m.pListDeleteImage ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListDeleteImage;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mDeleteImage;

   PROCEDURE ( VAR c : ClassDesc ) mExchange*( VAR msg : m.pListExchange ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListExchange;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mExchange;

   PROCEDURE ( VAR c : ClassDesc ) mGetEntry*( VAR msg : m.pListGetEntry ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListGetEntry;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mGetEntry;

   PROCEDURE ( VAR c : ClassDesc ) mInsert*( VAR msg : m.pListInsert ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListInsert;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mInsert;

   PROCEDURE ( VAR c : ClassDesc ) mInsertSingle*( VAR msg : m.pListInsertSingle ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListInsertSingle;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mInsertSingle;

   PROCEDURE ( VAR c : ClassDesc ) mJump*( VAR msg : m.pListJump ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListJump;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mJump;

   PROCEDURE ( VAR c : ClassDesc ) mMove*( VAR msg : m.pListMove ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListMove;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mMove;

   PROCEDURE ( VAR c : ClassDesc ) mNextSelected*( VAR msg : m.pListNextSelected ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListNextSelected;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mNextSelected;

   PROCEDURE ( VAR c : ClassDesc ) mRedraw*( VAR msg : m.pListRedraw ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListRedraw;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mRedraw;

   PROCEDURE ( VAR c : ClassDesc ) mRemove*( VAR msg : m.pListRemove ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListRemove;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mRemove;

   PROCEDURE ( VAR c : ClassDesc ) mSelect*( VAR msg : m.pListSelect ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListSelect;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mSelect;

   PROCEDURE ( VAR c : ClassDesc ) mSort*( VAR msg : m.pListSort ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListSort;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mSort;

   PROCEDURE ( VAR c : ClassDesc ) mTestPos*( VAR msg : m.pListTestPos ):e.APTR;
     BEGIN
       msg.msg.methodID := m.mListTestPos;
       RETURN clf.DoSuperMethodA( c.class, c.object, msg )
     END mTestPos;

  PROCEDURE Dispatch * ( cl : I.IClassPtr; obj : I.ObjectPtr; msg : I.MsgPtr ):e.APTR;
    VAR c : Class;
    BEGIN
      IF msg.methodID # I.new THEN
        c := RootClass.BoopsiToObj( cl, obj )(Class);
      END;

      CASE msg.methodID OF
        | m.mListClear                : RETURN c.mClear( msg^(m.pListClear) );
        | m.mListCreateImage          : RETURN c.mCreateImage( msg^(m.pListCreateImage) );
        | m.mListDeleteImage          : RETURN c.mDeleteImage( msg^(m.pListDeleteImage) );
        | m.mListExchange             : RETURN c.mExchange( msg^(m.pListExchange) );
        | m.mListGetEntry             : RETURN c.mGetEntry( msg^(m.pListGetEntry) );
        | m.mListInsert               : RETURN c.mInsert( msg^(m.pListInsert) );
        | m.mListInsertSingle         : RETURN c.mInsertSingle( msg^(m.pListInsertSingle) );
        | m.mListJump                 : RETURN c.mJump( msg^(m.pListJump) );
        | m.mListMove                 : RETURN c.mMove( msg^(m.pListMove) );
        | m.mListNextSelected         : RETURN c.mNextSelected( msg^(m.pListNextSelected) );
        | m.mListRedraw               : RETURN c.mRedraw( msg^(m.pListRedraw) );
        | m.mListRemove               : RETURN c.mRemove( msg^(m.pListRemove) );
        | m.mListSelect               : RETURN c.mSelect( msg^(m.pListSelect) );
        | m.mListSort                 : RETURN c.mSort( msg^(m.pListSort) );
        | m.mListTestPos              : RETURN c.mTestPos( msg^(m.pListTestPos) );
      ELSE
        RETURN SuperClass.Dispatch( cl, obj, msg );
      END;
    END Dispatch;

BEGIN
  class := m.GetClass( name );
  IF class = NIL THEN HALT( 205 ) END; (* Error : Object not Found *)
CLOSE
  IF class # NIL THEN m.FreeClass( class ) END;
END MUIList.